home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / bmasmfuncs.raz < prev    next >
Encoding:
Text File  |  1994-12-09  |  1.2 KB  |  43 lines
  1. /** $VER: BMAsmFuncs.raz 1.1 (26.10.94)
  2.  **
  3.  ** Ajoute une marque pour chaque étiquette dans un source en assembleur,
  4.  ** puis ouvre la palette des marques afin d'afficher la liste.
  5.  ** Une étiquette est déterminée par une ligne dont le premier caractère
  6.  ** fait partie d'un mot
  7.  **
  8.  ** Comment fonctionne cette recherche (Search) :
  9.  ** - n'importe quel (PAT = pattern : les ? servent de motif de recherche)
  10.  ** - caractère ("?")
  11.  ** - en début de mot et donc faisant partie d'un mot (SOW = start of word)
  12.  ** - en début de ligne (SOL = start of line)
  13.  **/
  14.  
  15. OPTIONS RESULTS
  16.  
  17. /*------- Sauvegarde la position de départ --------*/
  18.  
  19. ReqClose Bookmarks      /* ferme la palette des marques */
  20.  
  21. Lock INPUT DISPLAY /*STATUS*/ ON
  22. GetPos; PARSE VAR RESULT startline startcol .
  23. Cursor 1 1
  24.  
  25. /*------- Parcoure les lignes du texte --------*/
  26.  
  27. DO FOREVER
  28.     Search RESET PAT SOL SOW "?"; IF (RC >= 5) THEN BREAK
  29.     GetWord; word = STRIP(RESULT)
  30.     IF ((LEFT(word,1) ~= '.') & (LEFT(word,1) ~= '$')) THEN DO
  31.         IF (LENGTH(word) > 1) THEN BMAdd word
  32.     END
  33. END
  34.  
  35. /*------- Restore la position de départ --------*/
  36.  
  37. Cursor startline startcol
  38. Lock INPUT DISPLAY /*STATUS*/ OFF
  39.  
  40. /*------- Ouvre la sélection flottante --------*/
  41.  
  42. ReqOpen Bookmarks
  43.